home *** CD-ROM | disk | FTP | other *** search
/ Developer CD Series 1997 January: Mac OS SDK / Dev.CD Jan 97 SDK2.toast / Development Kits (Disc 2) / ScriptX / Documentation / Code Examples from Docs / compguid / printing / docprn / jailbird.sx < prev    next >
Encoding:
Text File  |  1996-05-21  |  7.4 KB  |  261 lines  |  [TEXT/ttxt]
  1. -- Filename:
  2. --     JAILBIRD.SX
  3.  
  4. -- Other Files Required: 
  5. --     NONE
  6.  
  7. -- Purpose:
  8. --     Demonstrates a simple working document
  9.  
  10. -- Specialized Classes:
  11. --     None
  12.  
  13. -- Instructions to User:
  14. --     This is the main script for the creation of the document object.  To
  15. -- create the title container, run the loadme.sx script.  The loadme script
  16. -- will then call the media.sx and jailbird.sx scripts.
  17. --
  18. --        When the jailbird.sxt title runs a window will appear with the title page.
  19. -- Click any where in this page to go to the next page.  Subsequent pages will
  20. -- contain forward and backward buttons for traversing the document.
  21.  
  22. -- Author:
  23. --     Kim Swix
  24.  
  25. ------------------------------------------------------------------------
  26.  
  27. in module docModule
  28.  
  29. -- ***********************************************************************
  30. -- Functions
  31. -- ***********************************************************************
  32.  
  33. function findPresenter presenter parentClass ->
  34. (   repeat while (presenter !== undefined) do
  35.     (   if (isAKindOf presenter parentClass) do
  36.            (return presenter)
  37.         presenter := presenter.presentedBy
  38.     )
  39.     undefined
  40. )
  41.  
  42. function butFwd ad self ->
  43. ( 
  44.   local doc, bm
  45.   doc := findPresenter self Document
  46.   bm := doc[doc.cursor].frame[10].presenter.target
  47.   forward doc
  48.   makepurgeable bm
  49.   if doc.cursor = doc.size do
  50.      self.enabled := false
  51. )
  52.  
  53. function butBack ad self ->
  54. ( 
  55.   local doc, bm
  56.   doc := findPresenter self Document
  57.   bm := doc[doc.cursor].frame[10].presenter.target
  58.   backward doc
  59.   makepurgeable bm
  60.   if doc.cursor < doc.size do
  61.      ad.enabled := true
  62. )
  63.  
  64. function makeTitleLayer bbox ->
  65. (
  66.     local tlayer, sh, bkgndElem
  67.     tlayer := new pageLayer boundary:bbox
  68.     sh := new twodshape boundary:docCont["1000.bmp" as String]
  69.     bkgndElem := new pageElement boundary:sh.boundary presenter:sh target:docCont["1000.bmp" as String]
  70.     bkgndElem.x := bkgndElem.y := 0
  71.     append tlayer bkgndElem
  72.     
  73.     local but, ctl, butElem
  74.     but := new pushbutton
  75.     but.releasedPresenter := (new twodshape boundary:bbox fill:undefined stroke:undefined)
  76.     but.pressedPresenter := (new twodshape boundary:bbox fill:undefined stroke:undefined)
  77.     but.activateAction := ( ad item -> forward doc)
  78.     butElem := new pageElement boundary:but.boundary presenter:but target:but.target
  79.     prepend tlayer butElem
  80.     
  81.     ctl := new actuatorController space:tlayer
  82.     deleteOne ctl.protocols Actuator
  83.     append ctl.protocols PageElement
  84.     ctl.wholespace := true
  85.     
  86.     return tlayer
  87. )
  88.  
  89. function makeTextBox txt brush ->
  90. (
  91.     local tb, fnt
  92.     tb := new textPresenter boundary:(new rect x2:100 y2:25) target:txt
  93.     fnt := new platformFont name:"Helvetica" windowsName:"Arial"
  94.     setdefaultattr tb  @font  fnt
  95.     setdefaultattr tb @size 12
  96.     setdefaultattr tb @brush brush
  97.     return tb
  98. )
  99.  
  100. function makeMugLayer bbox ->
  101. (
  102.     local mlayer, tb, pe, bp
  103.     
  104.     mlayer := new pageLayer boundary:bbox
  105.     bp := new brush color:bluecolor
  106.     
  107.     -- Create the Name page element    
  108.     tb := makeTextBox ("Name:  " as text) blackbrush
  109.     pe := new pageElement boundary:tb.boundary presenter:tb target:("Name:  " as text)
  110.     pe.x := 20
  111.     pe.y := 125
  112.     append mlayer pe
  113.     
  114.     -- Create the DOB page element
  115.     tb := makeTextBox ("DOB:  " as text) blackbrush
  116.     pe := new pageElement boundary:tb.boundary presenter:tb target:("DOB:  " as text)
  117.     pe.x := 20
  118.     pe.y := 148
  119.     append mlayer pe
  120.     
  121.     -- Create the Height element
  122.     tb := makeTextBox ("Height:  " as text) blackbrush
  123.     pe := new pageElement boundary:tb.boundary presenter:tb target:("Height:  " as text)
  124.     pe.x := 20
  125.     pe.y := 171
  126.     append mlayer pe
  127.  
  128.     -- Create the Weight element
  129.     tb := makeTextBox ("Weight:  " as text) blackbrush
  130.     pe := new pageElement boundary:tb.boundary presenter:tb target:("Weight:  " as text)
  131.     pe.x := 20
  132.     pe.y := 194
  133.     append mlayer pe
  134.     
  135.     -- Create the PageNo element
  136.     tb := makeTextBox (" " as text) blackbrush
  137.     pe := new pageElement boundary:tb.boundary presenter:tb \
  138.       target:( e -> getNth (getparentData e Page) 1)
  139.     pe.x := 20
  140.     pe.y := 225
  141.     append mlayer pe
  142.     
  143.     -- Create the Name Field element
  144.     tb := makeTextBox (" " as text) bp
  145.     pe := new pageElement boundary:tb.boundary presenter:tb \
  146.       target:( e -> getNth (getparentData e Page) 2)
  147.     pe.x := 100
  148.     pe.y := 125
  149.     append mlayer pe
  150.     
  151.     -- Create the DOB Field element
  152.     tb := makeTextBox (" " as text) bp
  153.     pe := new pageElement boundary:tb.boundary presenter:tb \
  154.       target:( e -> getNth (getparentData e Page) 3)
  155.     pe.x := 100
  156.     pe.y := 148
  157.     append mlayer pe
  158.  
  159.     -- Create the Height Field element
  160.     tb := makeTextBox (" " as text) bp
  161.     pe := new pageElement boundary:tb.boundary presenter:tb \
  162.       target:( e -> getNth (getparentData e Page) 4)
  163.     pe.x := 100
  164.     pe.y := 171
  165.     append mlayer pe
  166.     
  167.     -- Create the Weight Field element
  168.     tb := makeTextBox (" " as text) bp
  169.     pe := new pageElement boundary:tb.boundary presenter:tb \
  170.       target:( e -> getNth (getparentData e Page) 5)
  171.     pe.x := 100
  172.     pe.y := 194
  173.     append mlayer pe
  174.  
  175.     -- Create the mugshot element
  176.     local mugShape := new twodshape boundary:docCont["1001.bmp" as String]
  177.     pe := new pageElement boundary:mugShape.boundary presenter:mugShape \
  178.       target:  (e -> getNth (getParentData e Page) 6)
  179.     pe.x := pe.y := 20
  180.     append mlayer pe
  181.     
  182.     -- Create the navigational buttons
  183.     local tri1, tri2, gp, rp, rpDull, blDull
  184.     gp := new brush color:greencolor
  185.     rp := new brush color:redcolor
  186.     rpDull := new brush color:redcolor pattern:grayPattern
  187.     blDull := new brush color:blackcolor pattern:grayPattern
  188.     
  189.     tri1 := new path
  190.     moveto tri1 0 0
  191.     lineto tri1 0 50
  192.     lineto tri1 25 25
  193.     closePath tri1
  194.     
  195.     local fwd := new pushButton
  196.     fwd.pressedPresenter := (new twodshape boundary:tri1 stroke:blackbrush fill:gp)
  197.     fwd.releasedPresenter := (new twodshape boundary:tri1 stroke:blackbrush fill:rp)
  198.     fwd.disabledPresenter := (new twodshape boundary:tri1 stroke:blDull fill:rpDull)
  199.     fwd.activateAction := butFwd
  200.     
  201.     tri2 := new path
  202.     moveto tri2 25 0
  203.     lineto tri2 25 50
  204.     lineto tri2 0 25
  205.     closepath tri2
  206.     
  207.     local bwd := new pushbutton
  208.     bwd.pressedPresenter := (new twodshape boundary:tri2 stroke:blackbrush fill:gp)
  209.     bwd.releasedPresenter := (new twodshape boundary:tri2 stroke:blackbrush fill:rp)
  210.     bwd.disabledPresenter := (new twodshape boundary:tri2 stroke:blDull fill:rpDull)
  211.     bwd.activateAction := butBack
  212.     bwd.authorData := fwd
  213.     
  214.     pe := new pageElement boundary:fwd.boundary presenter:fwd target:fwd.target
  215.     pe.x := 265
  216.     pe.y := 250
  217.     append mlayer pe
  218.     
  219.     pe := new pageElement boundary:bwd.boundary presenter:bwd target:bwd.target
  220.     pe.x := 10
  221.     pe.y := 250
  222.     append mlayer pe
  223.     
  224.     local ctl
  225.     ctl := new actuatorController space:mlayer
  226.     deleteOne ctl.protocols Actuator
  227.     append ctl.protocols PageElement
  228.     ctl.wholespace := true
  229.     
  230.     return mlayer
  231. )
  232.  
  233. function makePage bbox frame data ->
  234. (
  235.     local pg
  236.     pg := new page boundary:bbox frame:frame target:data
  237.     
  238.     return pg
  239. )
  240.  
  241. function makeDocument ->
  242. (
  243.     local doc, titleLayer, mugShotLayer, prect
  244.     prect := new rect x2:300 y2:300
  245.     doc := new MyDocumentClass boundary:prect
  246.     doc.name := "JailBirds"
  247.     
  248.     titleLayer := makeTitleLayer prect
  249.     mugShotLayer := makeMugLayer prect
  250.     
  251.     append doc (makePage prect titleLayer undefined)
  252.     append doc (makePage prect mugShotLayer #(("Page 2" as text), ("Barry"as text),\
  253.       ( "2-12-93" as text), ("5 ft." as text), ("125 lbs." as text), docCont["1001.bmp" as String]))
  254.     append doc (makePage prect mugShotLayer #(("Page 3" as text), ("Willie" as text),\
  255.       ( "1-29-93" as text), ("6 in." as text), ("3 oz." as text), docCont["1002.bmp" as String]))
  256.     append doc (makePage prect mugShotLayer #(("Page 4" as text), ("Cotton" as text),\
  257.       ( "11-19-62" as text), ("1 ft." as text), ("3 lbs." as text), docCont["1003.bmp" as String]))
  258.       
  259.     return doc
  260. )
  261.